# Usage: milan.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

create {
	sourceFile standard.tcl
	outputFile milan.ps 
	mapFile milan.map
	title "diplomacy map (milan variant)"
	images {
		chart {milan.base.ps {scan {22 25 650 576} {} {{part1 part2 part3 part4 part5 SEA} part6 part7 part8 part9 part10 part11 part12 part13 part14 part15 part16 part17 part18} \
			{gm moveto lin lineto SEA {Blue fill} ISLAND {Brown fill} SWITZERLAND {Grey fill} BORDER {BorderBlack stroke} internal {Black stroke} lastborder {} miny 25}} {} {}}
		coordinates {milan.base.ps {scan {} {provinces INFO supplies TLA powers COUNTRY}} {} {}}
	}
	frame {bbox {} LandBrown FrameBorder}
	borders {
		sea {image {chart Blue} SeaBlue Border} 
		island {image {chart Brown} LandBrown Border}
		internalBorders {image {chart Black} {} InternalBorder}
		borders {image {chart BorderBlack} {} NationalBorder}
		mountain {image {chart Grey} MountainGrey NationalBorder}
	}
	locations {
		supplies {{coordinates supplies} Supplies s {Blue {} S}}
		coasts {{coordinates provinces} Territories c {Red DarkGreen AF} {
			NAF TUN SYR SMY CON ANK ARM SEV RUM GRE ALB TRI
			VEN APU NAP ROM SAV MAR POR GAS BRE PIC BEL HOL
			KIE DEN BER PRU LVN FIN SWE NWY EDI YOR LON WAL
			LVP CLY
		}}
		lands {{coordinates provinces} Territories l {Green DarkGreen A} {
			SER BUD VIE TYR BUR PAR RUH MUN BOH GAL UKR MOS
			WAR SIL MIL
		}}
		waters {{coordinates provinces} Territories w {White White F} {
			BAR NWG NTH SKA BAL BOT HEL ENG IRI NAO MAO WES
			LYO TYS ION ADR EAS AEG BLA
		}}
		greens {{coordinates provinces} Territories g {DarkGreen DarkGreen A} {
			BUL SPA STP
		}}
		beaches {{coordinates provinces} Territories b {Yellow {} F} {
			BUL/EC BUL/SC SPA/SC SPA/NC STP/SC STP/NC
		}}
		mountains {{coordinates provinces} Territories m {Black {} A} {
			SWI
		}}
	}
}
